home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macros.arc / ARTAC.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  739 b   |  10 lines
  1.  
  2. *COPY AR TO AC                                                                  
  3. *                                                                               
  4. ARTAC  $MACRO  A,T                                                              
  5.        $IF  T.L=0        USE XRO AS TEMP                                        
  6.        $ASG 'XR0' TO T.S                                                        
  7.        $ENDIF                                                                   
  8.        SAR  :A:,:T:      SAVE :A:                                               
  9.        LAC  :T:,0        LOAD INTO AC                                           
  10.        $END